(disabled-command-function): Fit window to buffer to

make last line visible.

diff --git a/lisp/novice.el b/lisp/novice.el
index f5c3019dfc2d5fd5e3dfa582d5b22c99257d6ffc..346877dcdda1f1edfe50c243639a3511faa7ade3 100644 (file)
--- a/lisp/novice.el
+++ b/lisp/novice.el
@@ -88,8 +88,9 @@ n   to cancel--don't try the command, and it remains disabled.
 SPC to try the command just this once, but leave it disabled.
 !   to try it, and enable all disabled commands for this session only.")
        (save-excursion
-       (set-buffer standard-output)
-       (help-mode)))
+        (set-buffer standard-output)
+        (help-mode)))
+     (fit-window-to-buffer (get-buffer-window "*Disabled Command*"))
      (message "Type y, n, ! or SPC (the space bar): ")
      (let ((cursor-in-echo-area t))
        (while (progn (setq char (read-event))